home *** CD-ROM | disk | FTP | other *** search
/ isnet Internet / Isnet Internet CD.iso / prog / chat / 12 / 12.exe / SYSTEM / Ircii.mrc < prev    next >
Encoding:
Text File  |  2000-02-21  |  4.9 KB  |  145 lines
  1. ;%%%%%%%%%%%%%%%%%%%%%%%%
  2. ;script ircII mode
  3. ;version 7.20
  4. ;author Quietust
  5. ;email quietust@ircN.org
  6. ;url http://www.ircN.org
  7. ;%%%%%%%%%%%%%%%%%%%%%%%%
  8. on 1:JOIN:# {
  9.   echo $colour(Join) -ti2 @ircII *** Joins $chan $+ : $nick ( $+ $address $+ )
  10.   if ($nick == $me) {
  11.     window -a @ircII
  12.     set %ircIIchan $chan
  13.   }
  14.   if ($chan == %ircIIchan) aline -l @ircII $nick
  15. }
  16. on 1:RAWMODE:# { echo $colour(Mode) -ti2 @ircII *** $nick sets mode in $chan $+ : $1- | if (%ircIIchan == $chan) { ircIIupdtopic | ircIInicks } }
  17. on 1:PART:# {
  18.   echo $colour(Part) -ti2 @ircII *** Parts $chan $+ : $nick ( $+ $address $+ ) $paren($1-)
  19.   if (($nick == $me) && ($chan == %ircIIchan)) {
  20.     if ($chan(0) == 1) ircIIchan
  21.     else ircIIchan $chan($sub($chan(0),1))
  22.   }
  23.   elseif ($chan == %ircIIchan) .timer 1 0 ircIInicks
  24. }
  25. on 1:KICK:# {
  26.   echo $colour(Kick) -ti2 @ircII *** $pst($knick,$chan) was kicked from $chan by $nick $paren($1-)
  27.   if ($chan == %ircIIchan) .timer 1 0 ircIInicks
  28.   if ($knick == $me) .timer 1 0 ircIIchan $chan($sub($chan(0),1))
  29. }
  30. on 1:TOPIC:# { echo $colour(Topic) -ti2 @ircII *** $pst($nick,$chan) changes topic in $chan to ' $+ $1- $+ ' | if (%ircIIchan == $chan) ircIIupdtopic }
  31. on 1:TEXT:*:# { echo -ti2 @ircII < $+ $pst($nick,$chan) $+ : $+ $chan $+ > $1- }
  32. on 1:TEXT:*:? { echo $colour(Highlight) -ti2 @ircII * $+ $nick $+ * $1- }
  33. on 1:NOTICE:*:# { echo $colour(Notice) -ti2 @ircII - $+ $pst($nick,$chan) $+ : $+ $chan $+ - $1- }
  34. on 1:NOTICE:*:? { echo $colour(Notice) -ti2 @ircII - $+ $nick $+ - $1- }
  35. on 1:ACTION:*:# { echo $colour(Action) -ti2 @ircII * $pst($nick,$chan) $+ : $+ $chan $1- }
  36. on 1:ACTION:*:? { echo $colour(Action) -ti2 @ircII * * $+ $nick $+ * $1- }
  37. on 1:QUIT {
  38.   echo $colour(Quit) -ti2 @ircII *** Quits from $com.channels($nick) $+ : $nick $paren($1-)
  39.   if ($findtok($com.channels($nick),%ircIIchan,1,44)) .timer 1 0 ircIInicks
  40. }
  41. on 1:NICK {
  42.   echo $colour(Nick) -ti2 @ircII *** $nick is now known as $newnick in $com.channels($newnick)
  43.   if ($findtok($com.channels($nick),%ircIIchan,1,44)) .timer 1 0 ircIInicks
  44. }
  45. on 1:CLOSE:@ircII { .timer 1 0 ircII off }
  46. alias ircIIchk {
  47.   if (%ircIIchan == $null) {
  48.     iecho No ircII channel is set!
  49.     halt
  50.   }
  51. }
  52. on 1:INPUT:@ircII {
  53.   if ($left($1,1) == /) {
  54.     if ($1 == /me) {
  55.       ircIIchk
  56.       describe %ircIIchan $2-
  57.       echo $colour(Action) -ti2 @ircII * $pst($me,%ircIIchan) $+ : $+ %ircIIchan $2-
  58.     }
  59.     elseif ($1 == //me) {
  60.       ircIIchk
  61.       .timer 1 0 describe %ircIIchan $2-
  62.       .timer 1 0 echo $colour(Action) -ti2 @ircII * $pst($me,%ircIIchan) $+ : $+ %ircIIchan $2-
  63.     }
  64.     elseif (($1 == /describe) && ($2 ischan)) {
  65.       ircIIchan $2
  66.       describe %ircIIchan $3-
  67.       echo $colour(Action) -ti2 @ircII * $pst($me,%ircIIchan) $+ : $+ %ircIIchan $3-
  68.     }
  69.     elseif (($1 == //describe) && ($2 ischan)) {
  70.       ircIIchan $2
  71.       .timer 1 0 describe %ircIIchan $3-
  72.       .timer 1 0 echo $colour(Action) -ti2 @ircII * $pst($me,%ircIIchan) $+ : $+ %ircIIchan $3-
  73.     }
  74.     elseif (($1 == /msg) && ($2 ischan)) {
  75.       ircIIchan $2
  76.       msg %ircIIchan $3-
  77.       echo -ti2 @ircII < $+ $pst($me,%ircIIchan) $+ : $+ %ircIIchan $+ > $3-
  78.     }
  79.     elseif (($1 == //msg) && ($2 ischan)) {
  80.       ircIIchan $2
  81.       .timer 1 0 msg %ircIIchan $3- 
  82.       .timer 1 0 echo -ti2 @ircII < $+ $pst($me,%ircIIchan) $+ : $+ %ircIIchan $+ > $3-
  83.     }
  84.     else return
  85.   }
  86.   elseif ((%nc == on) && ($right($1,1) == %nch) && ($len($1) > 1) && ($chr(44) !isin $getleft($1)) && ($chr(40) !isin $getleft($1)) && ($chr(41) !isin $getleft($1))) {
  87.     ircIIchk
  88.     if ($nc($1,%ircIIchan)) say $ncomp($nc($1,%ircIIchan)) $2-
  89.     else say $1-
  90.   }
  91.   else {
  92.     ircIIchk
  93.     say $1-
  94.   }
  95.   halt
  96. }
  97. alias ircIIchan {
  98.   set %ircIIchan $1
  99.   if ($1 == $null) {
  100.     clear -l @ircII
  101.     titlebar @ircII - No channel selected
  102.   }
  103.   ircIIupdtopic
  104.   ircIInicks
  105. }
  106. alias ircIInicks {
  107.   clear -l @ircII
  108.   set %itmp.n 0
  109.   :start
  110.   inc %itmp.n
  111.   if ($opnick(%ircIIchan,%itmp.n)) {
  112.     aline -l @ircII @ $+ $opnick(%ircIIchan,%itmp.n)
  113.     goto start
  114.   }  
  115.   set %itmp.n 0
  116.   :start2
  117.   inc %itmp.n
  118.   if ($vnick(%ircIIchan,%itmp.n)) {
  119.     aline -l @ircII + $+ $vnick(%ircIIchan,%itmp.n)
  120.     goto start2
  121.   }  
  122.   set %itmp.n 0
  123.   :start3
  124.   inc %itmp.n
  125.   if ($rnick(%ircIIchan,%itmp.n)) {
  126.     aline -l @ircII $rnick(%ircIIchan,%itmp.n)
  127.     goto start3
  128.   }  
  129. }
  130. alias ircIIupdtopic {
  131.   if (($chan(%ircIIchan).topic) && ($chan(%ircIIchan).mode)) titlebar @ircII %ircIIchan $ab($chan(%ircIIchan).mode) $+ : $chan(%ircIIchan).topic
  132.   elseif ($chan(%ircIIchan).mode) titlebar @ircII %ircIIchan $ab($chan(%ircIIchan).mode)
  133.   elseif ($chan(%ircIIchan).topic) titlebar @ircII %ircIIchan $+ : $chan(%ircIIchan).topic
  134.   else titlebar @ircII %ircIIchan
  135. }
  136. raw 324:* {
  137.   if ($2 == %ircIIchan) ircIIupdtopic
  138. }
  139. raw 332:* {
  140.   if ($2 == %ircIIchan) ircIIupdtopic
  141. }
  142. raw 366:* {
  143.   if ($2 == %ircIIchan) ircIInicks $2
  144. }
  145.